home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / mb39119.lsp < prev    next >
Text File  |  1998-03-15  |  8KB  |  250 lines
  1. ;=============391.19 SOCKELELEMENT 5
  2.  
  3. (EAITDBL "0039119")
  4. (EAITmsg "mb_mld10" "\n" "002" nil) (princ "........") (princ EAITnrx) (princ "\n")
  5. (princ)
  6.  
  7. (defun C:39119V1 (/ P1 Wi)
  8.    (EAITDBL "0039119")
  9.    (princ (strcat "\n\n" EAITbez1))
  10.    (EAITvari)
  11.    (EAITvars)
  12.    (setvar "ORTHOMODE" 1)
  13.  
  14.    (EAITbpt EAITofsch 32 nil)
  15.    (setq P1 (getpoint))
  16.    (if (= P1 nil)(setq P1 (EAITrpt)))
  17.  
  18.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  19.    (command EAITege (strcat EAITpfn "39119v1") P1 "" "" EAITofkei pause)
  20.    (setvar "ORTHOMODE" 0)
  21.    (setvar "OSMODE" 0)
  22.  
  23.    (setq Wi (EAITbw))
  24.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 60)) 15) "" "" ""
  25.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  26.    )
  27.    (EAITDBL "0039112")          ;Abdeckkappe 20x10
  28.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 92)) 37) "" "" ""
  29.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  30.    )
  31.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  32.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 73.4)) 36.5) "" "" ""
  33.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  34.    )
  35.  
  36.    (EAITvarz2)
  37.    (princ)
  38. )
  39.  
  40.  
  41.  
  42.  
  43. (defun C:39119V2 (/ P1 Wi)
  44.    (EAITDBL "0039119")
  45.    (princ (strcat "\n\n" EAITbez1))
  46.    (EAITvari)
  47.    (EAITvars)
  48.    (setvar "ORTHOMODE" 1)
  49.  
  50.    (EAITbpt EAITofsch 32 nil)
  51.    (setq P1 (getpoint))
  52.    (if (= P1 nil)(setq P1 (EAITrpt)))
  53.  
  54.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  55.    (command EAITege (strcat EAITpfn "39119v2") P1 "" "" EAITofkei pause)
  56.    (setvar "ORTHOMODE" 0)
  57.    (setvar "OSMODE" 0)
  58.  
  59.    (setq Wi (EAITbw))
  60.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 120)) 15) "" "" ""
  61.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  62.    )
  63.    (EAITDBL "0039112")          ;Abdeckkappe 20x10
  64.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 88)) 37) "" "" ""
  65.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  66.    )
  67.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  68.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 106.6)) 36.5) "" "" ""
  69.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  70.    )
  71.  
  72.    (EAITvarz2)
  73.    (princ)
  74. )
  75.  
  76.  
  77.  
  78.  
  79. (defun C:39119V3 (/ P1 Wi)
  80.    (EAITDBL "0039119")
  81.    (princ (strcat "\n\n" EAITbez1))
  82.    (EAITvari)
  83.    (EAITvars)
  84.    (setvar "ORTHOMODE" 1)
  85.  
  86.    (EAITbpt EAITofsch 32 nil)
  87.    (setq P1 (getpoint))
  88.    (if (= P1 nil)(setq P1 (EAITrpt)))
  89.  
  90.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  91.    (command EAITege (strcat EAITpfn "39119v3") P1 "" "" EAITofkei pause)
  92.    (setvar "ORTHOMODE" 0)
  93.    (setvar "OSMODE" 0)
  94.  
  95.    (setq Wi (EAITbw))
  96.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 120)) 15) "" "" ""
  97.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  98.    )
  99.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  100.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 90)) 35) "" "" ""
  101.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  102.    )
  103.  
  104.    (EAITvarz2)
  105.    (princ)
  106. )
  107.  
  108.  
  109.  
  110.  
  111.  
  112. (defun C:39119S1 (/ P1 Wi)
  113.    (EAITDBL "0039119")
  114.    (princ (strcat "\n\n" EAITbez1))
  115.    (EAITvari)
  116.    (EAITvars)
  117.    (setvar "ORTHOMODE" 1)
  118.  
  119.    (EAITbpt EAITofsch 32 nil)
  120.    (setq P1 (getpoint))
  121.    (if (= P1 nil)(setq P1 (EAITrpt)))
  122.  
  123.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  124.    (command EAITege (strcat EAITpfn "39119s1") P1 "" "" EAITofkei pause)
  125.    (setvar "ORTHOMODE" 0)
  126.    (setvar "OSMODE" 0)
  127.  
  128.    (setq Wi (EAITbw))
  129.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 111)) 17) "" "" ""
  130.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  131.    )
  132.    (EAITDBL "0039102")          ;Profil 20x10
  133.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 101)) 40) "" "" ""
  134.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  135.    )
  136.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  137.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 86)) 35) "" "" ""
  138.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  139.    )
  140.  
  141.    (EAITvarz2)
  142.    (princ)
  143. )
  144.  
  145.  
  146. (defun C:39119S2 (/ P1 Wi)
  147.    (EAITDBL "0039119")
  148.    (princ (strcat "\n\n" EAITbez1))
  149.    (EAITvari)
  150.    (EAITvars)
  151.    (setvar "ORTHOMODE" 1)
  152.  
  153.    (EAITbpt EAITofsch 32 nil)
  154.    (setq P1 (getpoint))
  155.    (if (= P1 nil)(setq P1 (EAITrpt)))
  156.  
  157.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  158.    (command EAITege (strcat EAITpfn "39119s2") P1 "" "" EAITofkei pause)
  159.    (setvar "ORTHOMODE" 0)
  160.    (setvar "OSMODE" 0)
  161.  
  162.    (setq Wi (EAITbw))
  163.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 111)) 17) "" "" ""
  164.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  165.    )
  166.    (EAITDBL "0039112")          ;Abdeckkappe 20x10
  167.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 101)) 40) "" "" ""
  168.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  169.    )
  170.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  171.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 86)) 35) "" "" ""
  172.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  173.    )
  174.  
  175.    (EAITvarz2)
  176.    (princ)
  177. )
  178.  
  179.  
  180.  
  181.  
  182.  
  183. (defun C:39119D1 (/ P1 Wi)
  184.    (EAITDBL "0039119")
  185.    (princ (strcat "\n\n" EAITbez1))
  186.    (EAITvari)
  187.    (EAITvars)
  188.    (setvar "ORTHOMODE" 1)
  189.  
  190.    (EAITbpt EAITofsch 32 nil)
  191.    (setq P1 (getpoint))
  192.    (if (= P1 nil)(setq P1 (EAITrpt)))
  193.  
  194.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  195.    (command EAITege (strcat EAITpfn "39119d1") P1 "" "" EAITofkei pause)
  196.    (setvar "ORTHOMODE" 0)
  197.    (setvar "OSMODE" 0)
  198.  
  199.    (setq Wi (EAITbw))
  200.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 45)) 8) "" "" ""
  201.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  202.    )
  203.    (EAITDBL "0039112")          ;Abdeckkappe 20x10
  204.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 255)) 5.5) "" "" ""
  205.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  206.    )
  207.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  208.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 354)) 12) "" "" ""
  209.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  210.    )
  211.  
  212.    (EAITvarz2)
  213.    (princ)
  214. )
  215.  
  216.  
  217.  
  218.  
  219. (defun C:39119D2 (/ P1 Wi)
  220.    (EAITDBL "0039119")
  221.    (princ (strcat "\n\n" EAITbez1))
  222.    (EAITvari)
  223.    (EAITvars)
  224.    (setvar "ORTHOMODE" 1)
  225.  
  226.    (EAITbpt EAITofsch 32 nil)
  227.    (setq P1 (getpoint))
  228.    (if (= P1 nil)(setq P1 (EAITrpt)))
  229.  
  230.    (EAITmsg "mb_mld10" "\n" "003" nil)      ;Drehwinkel
  231.    (command EAITege (strcat EAITpfn "39119d2") P1 "" "" EAITofkei pause)
  232.    (setvar "ORTHOMODE" 0)
  233.    (setvar "OSMODE" 0)
  234.  
  235.    (setq Wi (EAITbw))
  236.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 10) "" "" ""
  237.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  238.    )
  239.    (EAITDBL "0039127")          ;Halbrund-Schraube M5x40
  240.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 45)) 3) "" "" ""
  241.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  242.    )
  243.  
  244.    (EAITvarz2)
  245.    (princ)
  246. )
  247.  
  248. (princ)
  249.  
  250.